home *** CD-ROM | disk | FTP | other *** search
/ Microsoft Works - The Rig…for All Your Daily Tasks / Microsoft Works - The Right Tools for All Your Daily Tasks.iso / beethovn / setup.inf < prev    next >
Text File  |  1991-08-19  |  1KB  |  39 lines
  1. ;
  2. ;  Beethoven Demonstration Setup
  3. ;
  4.  
  5. WindowTitle("Setup: Multimedia Beethoven Demonstration")
  6.  
  7. GetCurPath(szCurPath)
  8. GetWinPath(szWinPath)              ; Path to Windows directory
  9.  
  10. PromptPath(szBeetPath,"C:\BEETDEMO",
  11.        "Copy Multimedia Beethoven files to:", "",    "")
  12.  
  13. MakePath(<szBeetPath>)
  14.  
  15. OpenCopyProgress("Setup is copying the Beethoven Program.",
  16.     "Please wait while Setup copies files.")
  17.     CopyFile(TBOOK.EXE,    <szBeetPath>TBOOK.EXE,    400000)
  18.     CopyFile(TBKBASE.DLL,  <szBeetPath>TBKBASE.DLL,  354000)
  19.     CopyFile(TBKCOMP.DLL,  <szBeetPath>TBKCOMP.DLL,  105000)
  20.     CopyFile(TBKUTIL.DLL,  <szBeetPath>TBKUTIL.DLL,  59000)
  21.     CopyFile(TBKNET.EXE,   <szBeetPath>TBKNET.EXE,   6000)
  22.     CopyFile(BEETDEMO.TBK, <szBeetPath>BEETDEMO.TBK, 1430000)
  23.     CopyFile(LUDWIG.ICO,   <szBeetPath>LUDWIG.ICO,      800)
  24.  
  25. CloseCopyProgress()
  26.  
  27. OpenProgmanProgress(
  28.     "Installing Multimedia Beethoven Demo in a Program Group",
  29.     "Please wait while Setup builds window Program Manager group.")
  30.  
  31.     OpenProgmanGroup("Multimedia Beethoven Demonstration")
  32.  
  33.     AddProgmanItem("Multimedia Beethoven Demonstration",
  34.            <szBeetpath>"TBOOK.EXE "<szBeetPath>"BEETDEMO.TBK",
  35.            <szBeetPath>ludwig.ico, 0)
  36. CloseProgmanProgress()
  37.  
  38. DisplayMessage("Microsoft Multimedia Beethoven Demonstration is now installed." , "")
  39.